home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / EDOOR.ZIP / SAMPLE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-02-11  |  496 b   |  13 lines
  1. uses door;
  2. var
  3.   blah: string;
  4.   x: boolean;
  5.  
  6. begin
  7.   doorname:='Sample Door';       {Set the door name                   }
  8.   cfgfn:='Sample.cfg';           {Config File name = sample.cfg       }
  9.   loadcfg;                       {Load/Parse the config file/drop file}
  10.   dclrscr;                       {Clear screen                        }
  11.   TypeFile('blah.ans', false);   {display ansi                        }
  12. end.                             {end!                                }
  13.